home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00965_Script_#issues exitframe script < prev    next >
Text File  |  1997-07-29  |  1KB  |  57 lines
  1. global menu_on, menusub_on, clearmenus,the_rolls,issue_text,dopm,current_pm, prof_rolls,sub_open
  2. on enterframe
  3.   puppetsprite 35, false
  4. end
  5.  
  6. on issrolls a, b, c
  7.   if not (the visible of sprite a) then
  8.     set the visible of sprite a = TRUE
  9.     set the visible of sprite b = FALSE
  10.     set the visible of sprite c = FALSE
  11.   end if
  12. end
  13.  
  14. on exitFrame
  15.   
  16.   case true of
  17.     (rollover(17)) : issrolls(30,31,32)
  18.     (rollover(18)) : issrolls(31,30,32)
  19.     (rollover(19)) : issrolls(32,30,31)
  20.   end case
  21.   if the visible of sprite 37 = false then set sub_open = 0
  22.   updatestage
  23.   go the frame
  24. end
  25.  
  26. on xidle
  27.   --  put current_pm &"nb" into nb
  28.   --  put current_pm & "cw" into cw
  29.   --  preLoadMember member nb,member cw
  30.   --  if issue_text = TRUE then
  31.   --    repeat with x in [38,40,41]
  32.   --      if rollover(x) then handcursor
  33.   --      repeat while rollover(x)
  34.   --        if the mousedown then exit
  35.   --        updatestage
  36.   --      end repeat
  37.   --      
  38.   --    end repeat
  39.   --  end if
  40.   
  41.   
  42.   
  43.   repeat with x in [17,18,19]
  44.     if rollover(x) then
  45.       set the visible of sprite (x + 13) = TRUE
  46.       --      handcursor
  47.       updatestage
  48.       repeat while rollover(x)
  49.         if the mousedown then exit
  50.       end repeat
  51.       set the visible of sprite (x + 13) = FALSE
  52.     end if
  53.   end repeat
  54.   
  55.   pass
  56. end
  57.